home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / sptmbr11.lha / init.lisp next >
Lisp/Scheme  |  1992-08-06  |  791b  |  33 lines
  1. (in-package "USER")
  2.  
  3. (unless (find-package "DSYS")
  4.   (make-package "DSYS" :use '("LISP")))
  5.  
  6. ;(push :testing *features*)
  7.  
  8. #|| #+cmu
  9. (progn
  10.  
  11. (setf (search-list "lisp:") '("/usr16/dice/rharris/cmucl/build/"
  12.                   "/usr20/dice/rharris/lisp/"
  13.                   "/usr20/dice/rharris/cmucl/source/"))
  14.  
  15. (let ((sym (intern "*DEFAULT-FILE-LOCATION*" "DSYS")))
  16.   (proclaim `(special ,sym))
  17.   (set sym "lisp:system"))
  18.  
  19. ) ||#
  20.  
  21. (unless (and (find-symbol "INITIALIZE" "DSYS")
  22.          (fboundp (find-symbol "INITIALIZE" "DSYS")))
  23.   (proclaim '(special *initialize-systems-p*))
  24.   (setq *initialize-systems-p* nil)
  25.   (load #-cmu "system"
  26.     #+cmu "lisp:system")
  27.   (setq *initialize-systems-p* t))
  28.  
  29. (when (< (length dsys::*all-systems*) 2)
  30.   (dsys:initialize-systems :system-only-p (not (y-or-n-p "Load systems? "))))
  31.  
  32.  
  33.